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SBEGIN RMOFSET,000,RMS$RMSO,<SETUP FOR A FAB FUNCTION> 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
’ ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH T 
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Facility: RMS32 
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> Abstract: 
3 routine to perform common setup for a fab function 
; Environment: 
3 star processor running starlet exec. 
: Author: L F Laverdure, creation date: 4-JAN-1977 
: Modified By: 
; v03-005 DASO001 David Solomon _  2=Feb-1984 
: Don't call RMS$RAISE_LOCK unless sharing. 
: V03-004 KBT0319 Keith B. Thompson 8-Sep-1982 
9 : Remove all SO sharing code 
0 : v03-003 KBT0208 Keith B. Thompson 23-Aug-1982 
5 Reorganize psects 
0 : v03-002 TMKO002 Todd M. Katz 02-Aug-1982 
000 5 Add a comment qnphosizing (spelling ?) that the field FABSW_IFI 
3 3 : must have a value if performing an indirect ppf operation. 
000 : v03-001 TMK0001 Todd M. Katz 27-Jul-1982 
0 ; Add the alternate entry point RMSFSET_ALT1. By transfering 
; control to this entry point, the call to RMSFABCHK is bypassed 
0 : but the retrieval of the IFAB's address is not. 
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v04- RMS.SR coR OFSE T.MAR; 1 
V02-010 REFORMAT Keith 8B. Thompson 29-Jul-1980 
v009 Cbps0077 C D Saether 23-JAN-1980 14:00 
clear busy bit in ifab if irab is busy (act error) 
v008 ANO0003 R A Newell 9-NOV-1978 15:22 


Hite sharing code cohancanenie 
Revision History: 


L F Laverdure 10-OCT-1978 13:30 
copy of CHK_IDLE from RMOFILFNC 
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RMOF SET SETUP FOR A FAB FUNCTION 16=SEP=1984 00:22:36 VAX/VMS Macro v04-00 Pooe 4 | RMI 
v04-000 RMSFSET = COMMON SETUP FOR FAB FUNCTION met 90:34:28 CAMS SRCIRMOFSET- MAR: 1 . (3). vO. 
-SBTTL RMSFSET = COMMON SETUP FOR FAB FUNCTION ROUTINE 
++ 
RMSSF SET - Set up for a FAB function call 
RMSSFSET_ALT1 = Bypass RMSSFABCHK call but obtain IFAB's address 
RMSSFSET_ALT = Bypass RMSSFABCHK call 
this routine performs common setup for a fab function call 
including the following: 


$ 
S$ 
$ 
r 
d 
1. call RMSFABCHK to check arglist, set base regs, 
and zero sts and stv fields in fab 

¢: check for valid ifi and set ifab addr 

- check for stream idle and set to busy 

¢ store the arglist addr and caller's mode in the ifab 


. save sp entry value in IMP$L_SAVED_SP 


pepe elolololololololeiloleleleolololo) 
pepo fo fe lojlololololelololelojlojlolololo) 
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Calling sequence: 
BSBw RMSF SET 


alternate antes at RMSFSET_ALT to perform functions 3, 4, & 5 only 
R7, RB, RY, and R11 must be set as per output prior to call. 


alternate getry at RMSFSET_ALT1 to perform functions 2, 3, 4, & 5 only 
R7, RB, RY, and R11 must be set as per output prior to call. 


So COOoOoCOCoooooQoooQooooooooo 
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Input Parameters: 


R9 IFIl of IFAB if enter at RMSFSET_ALT1 | 
SP stack pointer 
AP argument List addr 


Implicit Inputs: 
The contents of the FAB. 


NOTE: If performing an indirect PPF operation, the field FABSW_IFI 
must have a value. 


Output Parameters: 
R11 impure area address 
R10 ifab address 
R9 ifab address 
R8 fab address 
R7 caller's mode 
RO thru R5 destroyed 
Implicit Outputs: 
IMP$L_SAVED_SP is set to value of SP+4 


Completion Codes: 
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6° 157 ; 
0 158 ; none. if an error is detected returns to user (not caller) 
8 159 ; after appropriate cleanup. the user receives a standard 
0 160 ; rms error code, in particular, ifi and those returned by 
ope 161 ; RMSF ABCHK. 

00 196 H 

000 165 ; Side Effects: 

000 164; 

000 165; none 

000 198 : 

000 167 ; 

000 168 


G 12 


RMOF SET SETUP FOR A FAB FUNCTION 16-SEP-1984 00:22:3 AX/VMS Macro V04-00 Page 
you~ O00 RMSFSET = COMMON SETUP FOR FAB FUNCTION iets 90:39:28 CAMS SRCIRMOFSET-MAR: 1 . 
170 RMSFSET:: 
FFFD' 30 171 BSBW RM$F ABCHK ; valid fab? 
1 ¢ ; returns only if o.k. 
ib pipotey sete Ot? te 4 dd 
3 note: sets o impure addr 
00 175 $ R9 to ifi 
88 176 ; R8 to fab addr 
17 3 R7 to caller's mode 
00 178 
00 179 ; 
000 18) ; Alternate entry point. 
$6 1 ¢ 3; Get the IFAB address and check for a valid IFAB. 
000 18 H 
000 184 
it 185 RMSFSET_ALT1:: 
50 06 00 000 186 MOVL #IMPS$L_IFABTBL/4,R0 ; ifab table offset divided by 4 
FFF7* 30 Q006 187 BSBW RMSGTIADR 3 get ifab addr 
46 13 0009 188 L ERRIFI :; branch if bad 
000B 189 ASSUME IFB$B_BID EQ IFB$B_BLN-1 
00000008 000B 190 IF NE SSRMSTEST&SS$RMS_TBUGCHK 
2608 8F 08 AJ Bl 000B 191 CMPW ss FBS$B_BID(R9) ,#IFBSC_BID+<<IFBSC_BLN/4>*256> 
51 12 0011 138 BNEQ ERRBUG ; branch if not a valid ifab 
0013 «+19 -ENDC 
001 194 
001 195 ; 
Bay 136 3 alternate entry from fseti here 
0013 198 ; set busy, checking if already active 
0013 199: store caller's mode and arglist addr in ifab 
pote 200 ; 
001 201 
0013 88 RMSFSET_ALT:: 
4569 20 €2 0013 20 BBSS § #IFB$V_BUSY,(R9) ,ERRACT : 
30 68 1&€ €0 0017 04 BBS #FABSV~PPF_IND+<F ABSW_IF1*8>,(R8),CHKIND; branch if indirect ppf 
0018 205 CSB #IFBSV_PPF_IMAGE,(R9) ; make sure indirect bit off 
OA A9 «57 «690 «O01F 206 SETMOD: MOVB =—R7, IFBSB_MODE(R9S ; save caller's mode 
18 Ad =65C~—éiO 8953 07 MOVL AP, IFBSL_ARGLST(R9) ; Save pointer to arglist 
5A 59 DO 00 08 MOVL R9,R1 > copy ifab addr 
14 AB SE O04 (C1 Base $10 ADDL3 #4,SP,IMPS$L_SAVED_SP(R11); save stack entry value 
002F si] H 
002F \¢ 3; (less return pc) 
09 FSS 
00000008 002F 15 IF NE SSRMSTEST&SSRMS_TBUGCHK é 
24 49 58 00 8 F 1g ws R8,I1FBSL_LAST_FAB(R9) ; save addr this fab 
ga 
5 ’ 3 check that all irabs connected to an ifab are not busy. 
0 o 
50 5A 00 g MOVL R10,R0 ; ifab addr to temp reg | 
ge 11 8 4 BRB 208 3 go check if any irabs Linked 
1¢ 60 0 €0 5 108: BBS #IRBSV_BUSY, (RO), ,ERRACTO; error if busy 
03¢ 6 ASSUME IRBS$L_TRAB_LNK EQ IFB$L_IRAB_LNK 


F Ig-SEB-1984 00: 32: 36 VAX/VIKS Ma Mac cro V4. 00 Page a 


CTION 
ETUP FOR FAB FUNCTION “SEP-19 RMS.SRCIRM T.MAR; 1 


anor set S$ AB 
v04-000 R MO 
7 208: MOVL {PGCE FRAG LAK CRO) RO : get next irab 
8 Q 0$ ; 
0 in 
1 : 
5 
4 
5 
; 
9 
40 
41 


“nr 
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ranch if we got one 
TSTL | a ila ollie 


ay we sharing? 
BEQ no need to lock file 
pie RMSRAISE_LOCK 


take lock on file 


mmn 


Se ZEEE NH  Hs O> > > PPP YP YP YP YP DWI 


the ifi value indicates indirect processing of a process permanent file 
set PPF_IMAGE flag 
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CHKIND: he : 413 8 PPF_IMAGE, (RO) : set indirect operation flag | 
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ET 3; and continue 
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; 
; error returns 


ERRIFI: 
RMSERR IFI ; invalid ifi value 
BRB ERROR 


ERRACTO: 
cs #1FBSV_BUSY, (R10) ; don't leave ifab busy on irab busy 


ERRACT: 
SERR ACT ; stream already active 


FFOC’ 31 ERROR: BRW RMSEX_NOSTR 


: 
os 11 . 
" 
" 
0 


: internal rms problem - ifab table pointed to an invalid ifab! 


ERRBUG: RMSTBUG FTL$_BADIFAB 
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Symbol table “-SEP-1984 RMS.SRCIRM OF SE T.MAR; 1 (6) | 
$$.PSECT_EP = 00000000 
RMSTEST = $8 1A 
SSRMS_PBUGCHK = 8 
SSRMS_TBUGCHK = 000 8 
SRMS_UMOD = 4 
HK ING 4B R 01 
ERRACT 2f R 01 
ERRACTO 0 58 R 01 
ERRBUG 0 $ R 01 | 
ERRIFI 00000051 R 01 
PABSV PPF_IND 09000 o ; 7 | 
as ort = BeaBRhe | 
FIL$ BADIFAB = FFFFFFFD 
1FB$6_B1D S 444 
1FB$B_BLN = 00000009 
1FBSB_MODE = QQ00000A 
IFBSC_BID = 00000008 
IFBSC_BLN = S444 44 
IFBSL_ARGLST = 0000001 | 
IFBSL_IRAB_LNK = 0000001C 
IFBSL_LAST_F = BOOB NS | 
IFBSL_SFSB_PTR = 00000078 
IFBSV_BUSY = 4444 
Hoa PPF_ IMAGE = 000000 § 
IMPSL_IFABTBL = 0000001 | 
IMPSU SAVED SP = 00000014 
RBS$L_IRAB_CNK = 0000001C 
BUS = 00000020 
RASBY eeeeeeee x 01 
RMSEX_NOSTR teeneeee =X 01 
RMS$F ABCHK eeesesee =X 01 | 
SET 00000000 RG 01 | 
SET_ALT 00000013 RG 01 
RMSFSET ALT1 00000003 RG 01 
RMSGTIADR eteeeseer xX 01 | 
RMSRAISE_LOCK teereeee =X 01 | 
RMS$_ACT = 0001 8eo4 
= 00018564 
ETMOD QOOOOOIF R 01 | 
teoewoeoeocesoesceoescce + | 
! Psect synopsis ! 
$eoeceeceecoceccn + 
PSECT name Allocation PSECT No. Attributes 


00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL oe te NOEXE NORD NOWRT NOVEC BYTE 
00000068 (¢ 107.) O01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 <¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Ep-198¢ 16:91:48 EAMS. SRCIANOFSET-MAR: 1 
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H Per formance indicators ! 


ee Se eS moe aouaannewnt 


Phase Page faults CPU Time Elapsed Time 


Initialization 3 g: g: 06 0:00:01.41 
a processing 151 :00:00. 0:00: 93 +68 

s 1 263 0:00:07.75 0:00:19.89 
Symbol table sort 0 0:00:01.05 0:00:01.47 

s2 59 8: 701.44 8: Ba 3.70 
we, table output 6 :00: 8-06 8:08 
Psect synopsis output 0:00:00.0 Be: :00:00.0 
Cross-reference output 0:00:00.00 0:00: +98 88 
Assembler run totals 51 0:00:11.10 00:00:30.82 


Tee working set Limit was 1350 pages. 

42527 bytes (84 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 849 non-local and é Local symbols. 
266 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

1 pages of virtual memory were used to define 20 macros. 
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Macro Library name Macros defined 


_$255$DUA28: or OBJIRMS. TH 1 11 
“$255$DUA28: (SYS .OBJJLIB.MLB; 1 1 
“$255$DUA28: Peyei (BISTARLET. MLB; 2 4 
TOTALS (all Libraries) 16 


961 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOFSET/OBJ=OBJ$:RMOFSET MSRC$:RMOF SET/UPDATE=(ENHS$: RMOF SET) +EXECML$/LIB+LIB$:RMS/LIB 
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